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EDITORIAL 


Resulta paradójico, pero en cualquier caso muy esperanzados 
contemplar el rumbo que ha tomado el uso de los ordenadores 
personales. Es un hecho que las nuevas generaciones han sintoni¬ 
zado de forma extraordinariamente ágil con el uso y disfrute de es¬ 
tas nuevas "máquinas", y las han incorporado a su mundo sin re¬ 
paro alguno, entregándose plenamente a las posibilidades que les 
ofrece para el presente y, sobre todo, para el futuro. Es fácilmente 
imaginable que muy pronto la mayor parte de los sistemas auto-, 
máticos qué utilizamos estén dirigidos por ordenadores. Transpor¬ 
tes, comunicación, enseñanza, diversión, e incluso Eos asuntos de 
organización doméstica y personal serán campos en los que el 
programador podrá considerarse, como el "brazo derecho' 1 del 
hombre. 

El transbordador tecnológico que supone Ea informática de 
hoy, nos Elevará a ese orden de cosas que ya intuyen los más jóve¬ 
nes, que en gran parte de los casos se inician a través del juego y 
la distracción, incorporando al plano de su imaginación el dominio 
de esa potente catapulta que supone el programador. 

De momento, que te divertas. 
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SOFTSPECTRUM: Comentario de los programas 

1. SUMARIO 

2. HOTEL Como botones que eres del hotel Royal Palace, deberás impedir que los hués¬ 
pedes sonámbulos, que deambulan por el hotel en la noche, no caigan por el hueco del as¬ 
censor, puesto que ello te supondrá el despido. 

Para desplazar el ascensor hacia arriba emplea la tecla Q, y para moverlo en sentido descen¬ 
dente emplea la A. 

Como nota característica de este programa, diremos que el nivel de dificultad dei juego 
varía constantemente, dependiendo del número de huéspedes que se encuentren levan- 
dados en cada momento. Has de tener mucho cuidado al desempeñar tu puesto, ya que 
si dejas caer algún huésped, tu partida terminará. 

Diremos, en general, que se trata de un gracioso programa; donde lo más divertido es 
ver cómo se acuestan y se ievantan los huéspedes. 

3. CLAVIJAS: El escenario de este juego es un panel de luces, que has de lograr encender, ha¬ 
ciendo coincidir la fila seleccionada por el ordenador con la columna seleccionada por tí. 

Si la conexión es correcta, se encenderá una luz (siempre que sea correcta se enciende una 
de la diagonal) en color verde, y si la conexión no es correcta (no coincide la clavija conecta¬ 
da en la fila con la conectada en la columna) la luz se encenderá en color rojo y se te descar¬ 
garán las pilas... 

4. PATRULLERA:*En este juego el protagonista es un pesquero español que se encuentra fae¬ 
nando en aguas marroquíes. Tú, como capitán de dicho barco, has de conseguir pescar el 
mayor número de peces, pero teniendp mucho cuidado de no ser apresado por las patrulle¬ 
ras marroquíes que vigilan sus aguas jurisdiccionales, y de no hacer colisionar tu barco con 
arrecifes, ballenas, etc... 

Como consejo te diremos que las aguas más seguras para llevar a cabo tu faena, son las del 
centro de la pantalla, ya que las patrulleras llegan pocas veces allí en su recorrido. 

Para controlar tu barco podrás emplear las siguientes teclas: & arriba; A. abajo; 0. izquierda; 
P. derecha. 

5. HARRIER: Como piloto de la marina real española, tendrás que aterrizar tu Harrier en la pe¬ 
queña plataforma que hay en el portaviones prevista para tal efecto. 

Habrás de tener sumo cuidado de no chocar contra el portaviones, los aviones situados en 
su cubierta, o contra las frías aguas del mar. La maniobra de aproximación habrá de ser ade¬ 
más lo más rápida posible, puesto que posees muy poco combustible, y si éste se te gasta 
antes de aterrizar, tu avión estallará en mil pedazos. 

Los controles pára hacerse con el avión son los siguientes: CL arriba; A. abajo; O. izquierda; 

P. derecha. f 

Como nota curiosa te diremos, que el avión se mueve con inercia, por lo que afina tu tacto, 
no te vayas a estrellar. 

6. FRANCES: En números anteriores, publicamos un programa de Inglés pero son muchos los 
estudiantes (y demás usuarios) los que estudian Francés. Para ellos hemos hecho este pro¬ 
grama, que consiste en un cuestionario de español-francés o francés-español (a elegir), tras 
el cual se notifica al usuario el número de aciertos, el de fallos, y el nivel de conocimientos 
que alcanza. 

Una de las opciones del programa permite además listar todas las palabras que maneja el 
cuestionario. 

¡¡iYa lo sabes, si lo tuyo es el Francés, no pases por alto este programa!!! 

7. INER-DRAW: Te presentamos en esta ocasión otro programa de dibujo, pero diferente a to¬ 
dos los demás, porque incorpora una característica novedosa: iiie! cursor se desplaza con 
inercia!!!, de aquí que hayamos bautizado a este tipo de dibujo, como dibujo inercia!. Esta 
cualidad nos permite dibujar curvas con gran facilidad. Los controles de este programa son 
los siguientes: 

Q. arriba; A. abajo; 0. izquierda; P. derecha. 

S. graba en cassette la pantalla en curso (SAVE). 

L. carga del cassette una pantalla (LOAD). 

•C. permite cambiar las coordenadas de desplazamiento X e Y. 







F. para salir dei programa (STOP). 

Además de ésto, al principio del programa se te preguntan u serie de características sobre 
el trazo, tal como son el grosor, la concentración, y si se desea trazo continuo o discontinuo. 
Para que el trazo sea una línea sencilla, introducir: 

Grosor 1, Concentración 1, trazo continuo. 

Para conseguir un trazo curioso (cinta a'rayas), introducir: 

_ Grosor 8, Concentración 2, trazon continuo. 

Estamos seguros que te divertirás con el uso de este programa. 

8. MEZCLADOR: Este programa te ofrece y te enseña a usar una rutina en c/m, que te perm¡ : 
tirá mezclar dos pantallas gráficas, de tres modos diferentes: 

Modo XOR mezcla ambas mantalias como si se imprimises una sobre otra con OVER 1. 
Modo OR superpone ambas pantallas. 

Modo AND sólo se imprimen los puntos que son comunes en ambas pantallas. Por ejemplo, 
si una de las pantallas es una esfera, y el resto de la pantalla se encuentra en blanco, 
sólo aparecerá al mezclarlas, el trozo de pantalla de la esfera, pero con el dibujo que 
hubiese en la otra pantalla. Sería como ver la pantalla que está -debajo, por los aguje¬ 
ros de la de arriba. 

Las instrucciones de manejo de la rutina, se encuentran detalladas en el programa, 

9. SPITFIRE: Como piloto del más famoso avión de la segunda guerra mundial, deberás abatir 
el mayor número de cazas enemigos antes de que ellos te derriben a tí. 

Los controles del avión son los propios de un avión de su ciase: 0. izquierda; P. derecha; Q. 
para disparar tus metralletas. 

Como notas significativas de este programa, diremos que está realizado en C/M, que posee 
unos gráficos aceptables, y que el sonido de los motores de ios aviones es bueno. 

¡¡¡Aunque el número de cazas enemigos sea muy superior al tuyo, no te desanimes, lucha 
para sobrevivir, y... diviértete, que es lo principal!!! 

10. GROBS: Tu misión en este juego consiste en apoderarte de un tesoro enormemente prote¬ 
gido, por guardianes y por trampas de todo tipo. Has de llevar tu nombre hasta el tesoro sin 
pisar las minas, sin tocar las barreras energéticas, y sin ser descubierto por el perro robot, o 
los pequeños RIV (robots inteligentes para la vigilancia), ya que si te capturan te puedes dar 
por muerto. 

Para conseguir puntos extra, deberás recoger las peras que hay repartidas por todas las ha¬ 
bitaciones. 

Para desplazar tu muñeco dispones de las siguientes teclas: q. arriba; a abajo; o. izquierda; p. 
derecha. 

¡¡¡Adelante valiente, intenta alcanzar e! tesoro de los Grobs, antes de que otro aventurero lo 
consigalü 

11. LLUVIA: Durante uno de los peores años de sequía que ha conocido la península, tú decides 
seguir adelante con tu plantación. Para elfo te dispones a recoger todo el- agua que te sea 
posible, incluso gota a gota, como en esta ocasión. 

Recoge las gotas de lluvia que caen de las nubes que se desplazan por el cielo, impidiendo 
que se te caigan más de cinco, ya que de lo contrario la sequía se apoderará de nuevo de tu 
cosecha, y te quedarás arruinado. 

Para desplazarte has de pulsar: 

O. para ir a la izquierda. 

P. para ir a la derecha. 

CAPS SH1FT. para ir más deprisa (de 2 en 2). 

12. PULPIS: Nuestra base energética localizada en la Luna ha sufrido otra invasión, esta vez por 
parte de los Pulpis, procedentes de una de las lunas de Júpiter. Con Ja intenciónde absorber 
todo nuestro foco de energía, que ellos necesitan para mantener más cálido el ambiente en 
su lejano planeta. 

Tú eres el encargado de defender este núcleo energético, así que manos al teclado, y a pro¬ 
curar que no lleguen. 

Dispones de las siguientes teclas para controlar tu cañón: 

Q. desplaza el cañón hacia arriba. 

A. desplaza el cañón hacia abajo. 
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P. lanza un chorro de energía del cañón, que aleja a los pulpis. 

El alcance de tu rayo de energía es muy corto, así que afina tu puntería, ya que al menor des¬ 
cuido no lo podrás contar. 

13. NATACION: Con la llegada de la primavera, nuestro Spectrum patrocina el décimo-octavo 
campeonato de natación sobre pista cubierta. Si participas en este campeonato, nadarás 
por la calle número 1 con el empleo de la tecla que desees del teclado. 

Intenta hacer el menor tiempo posible, ya que puedes conseguir uno de los records mundia¬ 
les. 

14. PSICOTECNICO: Si estás pensando en sacarte el permiso de conducción de ciclomotores, 
estarás enterado de que es necesaria la realización de un examen psicotécnico, para com¬ 
probar si posees ciertas facultades, tal como la previsión y la habilidad. 

Este programa es una simulación de uno de estos ejercicios, que consiste en dos pruebas: 

1. En esta prueba aparece un móvil en pantalla, que se desplaza a una cierta velocidad, y en¬ 
tra en una zona roja donde se deja de ver. Tú has de calcular mentalmente cuándo crees que 
el móvil va a salir por el otro extremo; y cuando creas que lo va a hacer, pulsa cualquier te¬ 
da, y entonces el programa te dirá el tiempo de divergencia que has tenido (tu diferencia de 
tiempo con el original). 

2. La segunda prueba es un poco más^ divertida, y consiste en llevar dos móviles por el inte¬ 
rior de sus respectivas carreteras, procurando que ninguno de ellos choque. Tras ¡legar al 
otro extremo dé la pantalla, el ordenador te indica el número de choque que ha tenido cada 
coche. 

1 5. PULMONES: Con este programa podrás repasar las partes fundamentales de que consta el 
aparato respiratorio del hombre. 

El programa está desarrollado como un cuestionario, realizado sobre un gráfico estructural 
de las partes indicadas. 

El ordenador te va preguntando uno a uno los nombres de las partes que están señaladas 
con una flecha, y tras preguntarte todas te devuelve el número de aciertos, y el de fallos, 
además de un pequeño comentario sobre el resultado. 

Por defecto del programa, para indicar FOSAS NASALES habrás de escribir únicamente la 
palabra FOSAS. 


SOFTSPECTRUM: Ideas 


Nuestra sección de ideas vuelve a estar colmada con aplicaciones referentes a las variables 
del sistema. En esta ocasión son tres las variables a tratar: 

La primera de ellas es la llamada PIP, localizada en la dirección de memoria 23609, y que es 
la responsable de almacenar ía duración del chasquido del teclado. Esta variable se inicia con el 
valor 0, y es posible alterarlo introduciendo en esta dirección valores entre 0 y 255, para alargar 
el sonido que se produce en cada pulsación de tecla. Se puede emplear en programas donde la 
introducción de datos sea numerosa, para que el usuario del programa tenga una mayor seguri¬ 
dad al introducir los datos, porque, como todos sabemos, el teclado del Spectrum no es muy de 
fiar. 

La segunda de estas variables, es la llamada RASP, que se encuentra ubicada en la dirección 
23608 y que almacena la duración del chasquido de alarma. El sistema operativo, la inicializa 
con el valor 64, pero podemos introducir valores menores, para que la duración del sonido sea 
menor, por ejemplo 0. El programa que se adjunta únicamente mete el valor en memoria, ya que 
no es posible saber si funciona hasta que no dispongamos una línea errónea (por ejemplo un 
error de carga). 

La tercera y última de las variables es ERR NR, posicionada en la dirección 23610, y es la 
encargada de almacenar el código de informe de error menos 1. Se inicializa a 255 (para -1). 
Mediante el uso de esta variable, podemos simular cualquier error con sólo POKEar en ella el có¬ 
digo de! informe —1. Para ver cómo ésto es posible, copia y ejecuta el programa listado con el 
nombre ERR NR. 

10 REM ***###>****#*-?B¡-** 

20 REM * G.T.S. * PIP #• 

30 REM 
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30 FEM 

50 INPUT 11 DURAC ION DEL CHASQUIDO Í0-255):",A 
60 POKE 23609,A 
70 INPUT “TU NOMBRE?"}A* 

30 PRINT A* 

90—0 0 TO 50 -- 



10 

20 

30 

40 “ 

50- 

60 


REM 

REM * C.TiS. * RASP * 
REM ***************** 


REM 

- INPUT « DURACION DEL SO N IDO - <0 - 2 5 5) 
POKE 23608,A 


, A 



* ERR NR * 


PEM 

REM * S^T.S 
REM ****************** * 

PE M -—-—- 


■ 9&5S 


PEM íVALORES ENTRE 0-26) 
REM 

... • • 

INPUT "CODIGO DE ERRORí"JA 


POKE 23610,A 



■- 



1 IF INKEYSO"" THEN GO TO 9999 

2 CLS 

3 LET A=USR 23464 
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5 PRINT AT 10,10»"PARA LA CINTA" 
ó LET R-25 
12 POR A=0 TO 21*8 
tA POKE 650S9+A,PEEK (23296+A) 

16 NEXT A 
—20 EtM“C C4,31 
- 22 FOP A—1- TO 4 

24 LET C(A,2)s2: LET C(A,1)=2+(A*4): LET C(A,3)=0 

26 NEXT A 

•30 00 SUE 1000 

80 LET P=0 

90 LET X=16 


92 60 SUB 200 

'100 IF INKEVfO’" THEN 00 SUE 200 
120 GO SUB 300- 

199 60 TO 100 

200 PRINT AT X,20; 


201 TF INKEY*="q" THEN LET X=X-4: IF X<4 THEN LET X=4 

202 IF INKEYS=“a" THEN LET X=X+4: IF X>20 THEN LET X=20 
210 PRINT AT X,20;"gh": RETURN 

300 FOR A=I TO 4 

310 LET E=C<A,3>! LET XX=C(A,1>: LET YY=C(A,2) 


-320- Íf'é= 0 ir R HP>.W TH E N L ET E-l: f H»Tf AT XX, WP» 

340 IF E=1 THEN PRINT AT^YYí" a H íAT XX+1,YY5" b"! LET YY=YY+1: IF YY>29 THEN 

S— - +i ’ YYí,,j IF YY<3 THEN 

GO SUB 600 

360 IF -SCREEN*" (XX + 2, Y-Y)~" " THEN -00 -TO 2000 

400 LET C (Aj.2 )=VY_:_ LE T C<A,3? =E 
500 NEXT A: RETURN 


600 IF RND > • 5 THEN LET E=0: PRINT AT XX, 2* "íin " i AT XX+1,2;" 
610 LET P=P+10: GO SUE 700: LET E=i: RETURN 
700 PRINT AT l,25íP: RETURN 
1000 BORDER ó: PAPER 6: INK O: CLS 

1010 PRINT AT o, O; -O 


RETURN 


PUNTOS: O 


1011 PRINT PAPER 8í AT 1,9-iR. 


ee ee 


eeomn 


1012 PRINT ’«eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 

1015 FOR A= 1 TO. 4 

1 020 PRINT "edcdcdcdcdcdcdcdcdid cdcdcdcdcde 

ee? 

1030 NEXT A 

1040 PRINT "cdcdcdcdcdcdcdcdcdcd cdcdcdcdedeeeeeeeeeeeeeeeeeeee eeeeeeeeee _ 

2000 FOR E A=xí ?o T 20: PRINT AT A-l.YV,- - . AT A.YVI .AT ft * l , YY I *I ■ ■■ i -BC ER 1MO . - . 
NEXT A 


2010 PRINT AT 20 ,YYJ" "5AT 21,yyS"f": BEEP 1,-20 


UlO CLS ^ PRINT 3 At‘3?5í " f H ESTAS DESPEDIDO !!!“;AT 12,7; "OTRA PARTIDA (S/N) " 
2120 IF P>R THEN LET R=P 

2200 IF INKEYS= " s.!L THEN G0_TD_20- 

2210 IF INKEY*= * n * THEN RANDOMIZE USR O 
2220 GO TO 2200 


9998 CLEAR : LOAD *"m n »1 i "Zs” SCREEN* 

9999 SftV E "HOTEL"CODE 16384,PEEK 23627+25ó*PEEK 23628-16382: GO TO 1 
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HAS DE ENCENDER LAS 
LUCES DE LA DIAGO¬ 
NAL HACIENDO COINCI¬ 
DIR FILA V COLUMNA. 
TU MANEJAS LAS COL. 
TECLAS: DEL i AL S 


l IF INKEY*<>"" THEN GQ TO 9999 
R*=0 

~ CLS 

uET L=USR 23464 
11 PRINT AT 10, 10|_‘ P A R A LA CINTA" 


12 FOR A=0 TO 21*8 

14 PONE 630B9+A,PEEK (Z329S+A> 

16 NEXT A 

20 GO SUB 1000; GO TO 130 
lOO PRINT AT X0,13; # c<l " 

150 LET 0—1+ INT (RND*5> 

152 LET X0=7+2*0 

__15 4 P RINT AT XQ, 13» 5 +±<C* _ 

200 FOR A=1 TO 50 
202 LET A*=INKEY* 

204 IF A*>*0‘ AND A$<“7" THEN 00 TO 500 

205 NEXT A 
300 GO TO 100 

500 LET H»VAL A$! LET YH=15+2*H 

310 PRINT AT 3,YH!"e"iAT 6,yhi'e'}AT 7,yhj"a” 

520 IF H*0 THEN LET 1=4¡LET P=P+5 

330 IFHOQ THEN LET 1 = 2 : _LET_F=F +1 

340 PRINT AT XO,YH; INK I í “ i " i BEEP 1/2,10*1-30: 

550 PRINT AT 1,8>P 

555 IF F>6 THEN GO TO 2000 

360 PRINT AT 5,YHí"a*JAT 6,yh!"b"íAT 7,yh}“ " 

600 60 TO 100 

1000 BORDER 6 _ 

1002 PAPER 6 
1004 INK O 
1006 CLS 

1010 PRINT AT 0,OJ"kt+f+f++***++1 

hf + + fT-f + ++ + Tf q e e e e e e eRECORD! O e 




PRINT AT XO, YHj"i" 



ePUNTOSíO hfff gfg-fg+g+gf 1 
e e e e e e mfg-f + ff+fffff 
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n 


e e e e e e 


a a a a a a 


e 


b b b b b b 


e" 

1020- PRINT AT 8,2; "e--Uogogogogogo 1-hf f -f + 'f -f + ff -fcd p Lei eíei eíe-í e- 

e h + j 4 j f j f j f j f q hf f'f'f-fff-fffcd p i e i e i e i e i e i e e 

hfj+j-fj+j+jíq h-f + ffffff-f-fcd pieieieieíeie e b+jfj-fjíjfjfq 

hf -fff -f ff -ff fcd pieieieieíeie e hf j f j f j «f j f j *F q hfffffffff*cd 

pieieieieieie e hfj f j f j f j f j f q mffffffffffcd pieieieieíeie 

mf rf rf rf rf rf n" 

1030 PRINT AT 3,8;R 
1035 LET P=0: LET F=0 
1040 RETURN 

2000 BEEP 1,- l Oi BEEP 1,-20 

2010 CLS 

2020 PRINT AT 3,0;"HAS HECHO MUCHOS CORTOCIRCUITOS.";AT 5,0;"!! SE TE DESCARGARA 
N LAS PILAS í !" 

2030 PRINT AT 11,7;"TU PUNTUACION;"fP 
2040 PRINT AT 17,7;«OTRA PARTIDA (S/N) " 

2050 IF INKEY$="s" THEN GO TO 20 

2060 IF INKEY*="n" THEN RANDOMIZE USR O 

2070 IF P>R T HEN LET R=P: FOR A=t TO 60 ^ S TEP S i BEEP 1/10,A: NEXT A 
2100 GO TO 2050 

9998 CLEAR : LOAD *"m";1;"3 b"SCREEN* 

9999 SAVE "CLAVIJAS*CODE 16384,PEER 23Ó27+256*PEEK 23628-16382: GO TO 1 




DEFIENDE EL CENTRO 
DE ENERGIA DEL ATA¬ 
QUE DEL EJERCITO DE 
PULPIS QUE HA ATE¬ 
RRIZADO EN LA LUNA. 
Oift a:4 p: ggrjaaia 


1 IF INKE-VÍO"" THEN GO TO 9999 

2 CLS 

3 PRINT AT 10,10;"PARA LA CINTA" 


■5 LET R=0 
10 LET A=USR 23464 
T2 FOR A=0 TÜ 21#3“ 
14 POKE 650S9 + A,PEEK 
ló NEXT A 
20 DXM H{12) 


<- 232 - 9 - 6^=0 —-- 
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30 G0 SUB 1000 
100 PR1NT AT X,1;" “ 

110 IF INKEY$="q" THEN LET X=X-i: IF X<? THEN LET X=9 
115 IF INKEYS=“a" THEN LET X=X+1: IF X>20 THEN LET X=20 
120 PRINT AT X,1 i"f " 

T3C IF TNKEY*="p" THEI'fGOHSUB - 30'0 - 

140 LET -X-R-L+T-NT- <RND*12> 

1-35 PRINT AT XR-t-E, M (XR> ; " ” 

148 LET M(XR)=M(XR)-2 

160 IF M<XR)<2 THEN 60 TO 500 

170 PRINT AT XR+8,MÍXR1 i ”h" 

200 60 TO 100 

300 PRINT GVER 1 j AT X , 2 j ''gggggggggggggggg " ; BEEP 1/100,20 
305 IF M <X-8T>T7 THÉN G0~T"0 — 350“ 

310 B EEP 1-A 5Q , 30 -i — L E T ■ P=F * 5 : PR-l-NT-A-T- LV^-l-P ____ 

315 PRINT AT X,M(X-8)j"g" 

320 LET MÍX-33=30; PRINT AT X,30;"h" 

350 PRINT OVER 1 iAT X, 2 j"gggggggggggggggg” 

355 RETURN 

500 FOR A=1 TO 10 

5 10 FO R B= 1 TO 7 _____ 

515 PRINT AT XR+3,1; INK B;'h ” 

“32ÍHSEEP 1/50, B+A- 

530 NEXT B: NEXT A 

600 FOR A=7 TO O STEP -1 

610 PRINT AT X,1; INK AS"f" 

620 BEEP 1/5,A: PAUSE 5 
630 NEXT A 

-64 0 — BE EP 1, - 10 -- - 

700 IF F>R THEN LET R=F _ 

800 CLS 

810 PRINT AT 3,6j “TU NUCLEO ENERGETICO ” i AT ó,6}"HA SIDO ABSORBIDO!.*!" 

820 PRINT AT 14,7;"OTRA PARTIDA (S/N) n 

850 IF INKEY4= ! 's" THEN GO TO 20 

860 IF INKEY*="r" THEN RANDOMIZE USR O 

870 GG TO S50 

900 E“"OP - 

10.00 EGEHEE Q 

1002 PAPER O 




A remitir 3 SOFT-SPECTRUM - C/, Bailón, 20. 1 • Izda. 28005-Madrid 


Deseo suscribirme a los 11 n. 01 de la revísta Soft-Spectrum por sólo 2.500 pts. 

El importe lo haró efectivo: 

D Por giro postal n.". 

□ Por talón nominativo adjunto. 

□ Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 

Deseo suscribirme a partir del n.°. (inclusive). 


V» 


Nombre y apellidos: .„.... 

Domicilio: ...... 

Ciudad: ...Teléfono: 

...■...-.—....Firma: 


Fecha: 
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JO'4 INK 7 
! 00 ó C’_S 

FOR 235 -- 

1010 PLOT INK 3;A,112: DRAW INK 350,7+RND*32 
1012 NEXT A 

1014 FOR A=9 TO 20:. PRINT AT A,0i J, d": NEXT A 

1016 PRINT AT 8,05 "1 " jAT 21,05“™’' 

1017 PRINT AT O,O;"PUNTOS:O"JAT O,19!“RECORD:“¡R 

1018 PRINT AT 12, i 5 “-F “ 

1020 FOR A=0 TO 28 

1022 PRINT AT 2,A;“ akc": BEEP 1/100,30 

1024 PAUS E 5 _ 

lf-20 BEEP 1/100,50 
102"* PAUSE 5 

1023 NEXT A 

1030 FOR A=2 TO 7 

1032 PRINT INK 3! OVER 15 AT A,295“akc“¡ INK 4JAT A + i , 29í " akc " 

1035 PAUSE 10+A*2 
1038 BEEP 1/100,-A 
1040 NEXT A 

1050 LET A*="kkí< j j j i i ibbb???7 
1052 FOR A=1 TO 18 

1054 PRINT PAPER 15 INK 45AT 8,30?A*(A> 

1056 BEEP 1/50,A: PAUSE 10 

1060 NEXT A 

1100 FOR A*1 TO 12 

1102 FOR B=9 TO 21-A 

1103 PRINT PAPER 8? AT B -l,30 | " * I AT B,30j“e“ 

1,104 BEEP 1/10, B 

1105 NEXT B 

1115 PRINT AT 21-A,305"h"! BEEP 1/50,30 
1118 LET M(A > =30 
1120 NEXT A 

1130 PRINT AT 8,305 "b“ : BEEP—- 

1140 LET X=12: LET P=0 

1200 RETURN 
9990* CLEAR 

9995 LOAD *“m" Ul " 12s"SCREEN* 

9999 SAVE M PULPIS*CODE 16384,PEEK 23627+256*FEEK 23628-163825 60 TO 1 


EiOft 

SPECTRUfl 

20 - 1 e - ¡zúa,. 


28005 MADRID 
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RHGEL GRRCIR DELGADO 



SI DESEAS HACER UH 
PEQUERO REPASO DE 
TU VOCABULARIO DE 
FRANCES , CONTESTA 
A ESTE CUESTIONA¬ 
RIO. (20 PREGUNTAS) 



1 IF INKEYSO*" THEN GO TO 9999 

2 LET 1=USR 23464! BQRDER 1: CLS : PRINT AT 10,10í H PARA LA CINTA*: PAUSE 200 

3 INK 7: PAPER 1 

4 CLS 

5 POKE USR "n",24: 60 TO 900 

10 LET AC=0: IF T-l THEN LET I*="ESPA?ÜLA" : LET J^="FRANCESA‘ 

-12 IF T*»2 THEN LET J*="ESPA?-OLA" :-LET-"FRANCESA- - 
15 FOR A=1 TO 20 

20 CLS : PRINT AT O,Oí PAPER 3,,íAT O,2f"CUESTIONARIO PREGUNTA:"}A 
25 LET 1 —1000 + INT (RND*5)¡ RESTORE 1 

30 LET c=INT <RND*I0>: FOR b=0 TO c: READ aS t b*: NEXT b 
40 IF t=l THEN LET p*=a«: LET r*=b* 

42 IF t =2 THEN LET p*=bS: LET rS=a* 

45 PRINT : PRINT " A QUE PALABRA "íI*,**"CORRESPONDE LA PALABRA *}3Sí*:" 

__4¿_ERXNX—L- PRINT INK 5ITAB-X 6-LEN F*/2íP» 

50 INPUT "RESPUESTA? *} LINE S* 

60 IF S*<>R* THEN PRINT : PRINT " HAS FALLADO LA RESPUESTA ERA:"’’ITAB 16-LEN 
R*/2í INK 6íR*I FOR N=5 TO 1 STEP -i: BEEP .2 t N: NEXT NI BEEP 1,-10 

62 IF S*=R* THEN PRINT : PRINT " CORRECTO LA RESPUESTA ES:"’’;TAB 16-LEN R*/ 
2! INK 3;R$: LET AC=AC+i: FOR N=1 TO 60 STEP 4: OUT 254,N: BEEP 1/1Q0,N: NEXT N: 
BORDER 1 
70 NEXT A 

—SO PAUSE 43! CLS - 

90 PRINT AT 0,05’ RESULTADOS 

92 PRINT •• ACIERTOS__ . "íAC’ ’ " FALLOS....-"?20-AC’*" PORC 

ENT4JE "?AC*5í ’ " PUNTUACION. . . . "iAC/2 

100 BEEP 1/50,30 

900 °RINT AT 10,0; PAPER 7,,;AT 10,12j"FRANCES * 

901 PRINT : PRINT " 1- CUESTION A RIO FRA N CES COPA?OL B 11e • 2 - CUESTIONARIO ESPA90L 
-FRANCES" ’ ’ " 3- LISTADO DE VOCABULARIO"'’" 4 - FIN” 

902 PRINT : PRINT INVEPíSE 1,, 

910 IF INK£Y*="1" THEN LET T=1: 60 TO 10 

911 IF INKEY*=“2’ THEN LET T=2: GO TO 10 

















9! 2 IF INKEY$="3" THEN CLS : RESTORE IOOO! FOR A=1 TO 5: PRINT AT 3,0!" 
VOCABULARIO 11 ! FOR B=1 TO 10; READ A$,B$: PRINT A*,Bí: NEXT B: PRIN 

T ' PRINT PAPER 3,,: PAUSE O: BEEP 1/50,30: CLS ! NEXT A: GO TO 900 
915 IF INKE Y$-"A " THEN RANDOMIZE USR O 
920 GO TO 910 


999 STOP 

1000 TATA "UN®,"UNO* , "DEUX” , "DOS" , "TROIS","TRES","QUATRE","CUA 
", "SIX", "SEIS","SEPT", "SIETE","HUIT“,"OCHO","NEUF","NUEVE", "DI 

1001 DATA "VINGT","VEINTE","TRENTE",“TREINTA”,"QUARENTE","CUAR 
"CINCUENTA", "SOIXANTE" , "SESENTA","CENT", "CIEN","MILLE", "MIL"," 

E" ,"DOCE","TREICE","TRECE" 

1002 DATA "NOIR" . w NFRPOT- t "Bl ANC», "BLAN CO" , "UTOLET", "VIOLETA" f "BRUN" f "MORENO" ■_ _ 

OND*,"RUBIO","ROUGE","E NCARNADO”,"BLEU","AZUL",”VERT","VERDE",■JAUNE","AMARILLO 


LUñríEN i n j W 1 iHtK 

IL","0N2E","ONCE' 


J 


BL 


,"ROSE","ROSA" 

!003 DATA "LAMPE","LAMPARA","ARMOIRE","ARMARIO","TIROIR","CAJON","TABLEAU","CUAD 
RO*,"LIT", "CAMA","CENDRIER" , "CENICERO”, "MIROIR","ESPEJO", "FAUTEUIL”, “BUTACA", "TO 
ILETTE","TOCADOR","MATELAS","COLCHON" 

1003 DATA "PROFESSEUR”,"PROFESOR" , "CRAYON","LAPIZ","LIVRE","LIBRO","TABLE","MESA 
","CHAISE","SILLA","PORTE","PUERTA","PENETRE”,"VENTANA","HAUT","BAJO","GROS”,“GR 
UESü" , "LONG" , "LARGO" 

9990 CLEAR— 

9995 LOAD -X "«i " 5 1 ! “6s" SCREENÍ 

9999 SAVE "FRANCES"CODE 1Ó384,PEEK 23627+25ó*PEEK 23628-1Ó332: GO TO 1 




RECOGE CON TU CUEN¬ 
CO, LAS GOTAS DE 
LLUVIA QUE CAEN DE 
LAS NUBES. 

TECLAS: 

0:£i P: 4 MriMdfc» :2-2 



1 TF INKEY*<> n “ THEN GO TO 9999 

2 CLS í PRINT AT 10,10;"PARA LA CINTA"! PAUSE 200: BORDER 5: PAPER 5! INK O! 

CLS 

3 PRINT AT 15,25"PULSA UNA TECLA PARA EMPEZAR": PAUSE 43: BEEP 1/50,30: PAUSE 
o: CLS : FOR a=23232 TO 23295: POKE a,32: NEXT a 

4 LET q=15 

5 LET y=l : LET y =0__ _ 

6 LET AC=0: LET FA=0: GO SUB 1000 
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7 LET g=10: LET go=ÍO 

8 FOR d = 19 TO 21: PRINT AT d,0}*?“: NEXT d: PRINT AT 19,1;"??°: PRINT AT 13,0 
i*??": PRINT AT 17,0}"????": PRINT AT 16,0}*????*: PRINT AT 15,0}“???*! PRINT AT 

18,01*????“: PRINT AT 14,0}"???" 

9 FOR z=19_TO 21: PRINT AT z,31}"?*: NEXT zl PRINT AT 19,29}“??": PRINT AT 13 
,30} "??*: PRINT AT 17,28} "????" : PRINT AT 16,28} "????“ í PRINT AT—L5, 29 T"-???*t^ PR 
TNT-AT 1-8,28}"*????-“ : PRINT AT 14, 29} "???" 

10 PRINT AT x,y}" ■??'?'?'?■?•? '>'?•?■?777 

?????????? ????????? ?????? , 5?7777'S'S7 


??? 

13 PRINT AT x+ 6 ,y}" ??? ?????? 


7? 




*?*?*?*? 


* 7 * 7*2 


15 IF y =51 THE N LET y=0 
20 LET y=y+l 

-40 PRINT AT go , g} "?-*_______ 

45 PRINT AT go-ljgí 1 ’ " 

50 LET go=gn+l 

60 IF goJ-21 THEN PRINT AT 21,g}"?“: BEEP 1/100,30: LET FA=FA+1¡ GO SUB ÍOOO: P 
RINT AT 21 ,g¡* *: LET g=5+INT <RND*20í! LET go=10 

70 IF go=20 THEN IF g=q THEN BEEP .05,30: LET AC=AC+1: GO SUB IOOO: PRINT AT g 

—: LET_ g=5+INT LET go =10 

110 PRINT AT 21,q }"?"; PRINT AT 20,q!"?“ 

115 IF q >26 THEN : PRINT AT 21,qj" ": PRINT AT 20,q}" ": LET q=26 " 

117 IF q< 5 THEN PRINT AT 21,q}" ": PRINT AT 20,q}“ ": LET q =5 

120 IF INKEY*="o" THEN LET q=q-i: PRINT AT 21,q+l}" PRINT AT 20,q+l}‘ PRI 

NT AT 21, q} } *?": PRINT AT 20,q}"?“: GO -TO 10 
130 IF INKEYÍ="p" THEN LET q=q+l: PRINT AT 21,q-l}" PRINT AT 20,q-lf B PRI 

NT A T 21,q¡"?": PRINT AT 20,q}"?": GO TO 10 
150 ih INKET*=-U- íHfcN LET q=q-2r PRINT AT 31, q+2}’ PRINT—AT 20-, q+2-f * — PRI 

NT AT- 21, q4-} " : PRINT AT 20 ,q;"?“: GO TO 10 

IÓO IF INKEYS="P" THEN LET q=qV 2 : PRINT AT 21,q-2}* PRINT AT 20,q-2¡* *: PRI 

NT AT 21,q¡"?■ : PRINT AT 20,q}"?": GO TO 10 
500 GO TO 10 

1000 PRINT PAPER 6 }AT 0,3} INK O}"ACIERTOS- "}AC}AT O,18}"FALLOS..."}FA 

1010 IF FA>4 THEN GO TO 2000 
1020 RETUPN 


2000 REM *** MUERTE - «HHF 

201 e PRINT—AT - 7, 11} "G A ME —OVER" --- 

2020 PRINT AT 1 1,4} "DEJASTE CAER MUCHAS GOTAS" 
2030 PRINT AT 15,6}"OTRA PARTIDA CS/N) M 
2040 IF INKEY*="s" THEN CLS : GO TO 3 
2050 IF INKEY*="r>" THEN RANDOMIZE USR O 
2060 GO TO 2040 

9990 CLEAR _____ 

9995 LOAD *"m”} 1 }"11s"SCREEN* 


9999 SAVE " LLUVIA "CODE 16384, PEEK 23627 +256*PEEK 23628-16382! G 0 TIJ 
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TECLAS: 

Q¡* A:# 0P:=t> 
F: FINALIZAR 
L: LOAD PANTALLA 
Si SAUE PANTALLA 
C: CAMBIAR K,Y 



1 IF INKEYSO*" THEN GO TO 999? 

2 CLS 

3 PRINT AT 10,105"PARA LA CINTA" 

4 PAUSE 200 __ 

■5 CLS 

—é--^PCKE^236587"0-- 

10 LET x=12? 
t 1 LET y=8? 

20 LET xb“x 
22 LET yb=y 
30 LET xi~0 


Ü^-LE^L—y-ii=0- 

32 INPUT "COLOR DEL PAPEL! 1 * iP _ 

33 INPUT "COLOR TINTA:"5T 

34 PAPER P 
33 EORDER P 
36 INK T 

32 CLS 

-{? INPUT "PERDIDA DE INERCIA <S/N):"¡ LINE AS! LET I=0¡ IF A* ; 
-5? IN P U T “TRAZO DISCONTINUO CS/N ) Z * i LIN E A * i LET TR=0: IF A* 


. . 

s* THEN LET 1=1 
s" THEN LET TR= 


1 ___'- 

40 INPUT "GROSOR DEL TRAZO <1-80):"5G 
50 INPUT "CONCENTRACION TRAZO (1 M9> I " ) : " 1C 

100 IF INKEYÍC 1 "" THEN GO'TO 110 
10 t Ir 1=0 THEN GO TO 110 
]n2 tf y i <0 THEN LET yi=yi + l 
1 03 IF yi>0 THEN LET yi=yi-l 

110 IF INKEY**"q" THEN LET yi=yi+l 
120 IF INKEY*="a" THEN LET yi=yi-l 

125 IF INKEY$= M s" THEN INPUT “SAUE NOMBRE:"! LINE A*: SAUE AÍSCREEN* 

126 IF INKEY*="1" THEN INPUT "LOAD NOMBRE:"i LINE A*: LOAD A*SCREENS 
130 IF INKEY*="f" THEN STOP 
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200 IF INKEY*¡<>"“ THEN GO TO 210 

201 IF i=0 THEN GO TO 210 

202 IF xi<O THEN LET xi=xi+l 

203 IF xi>0 THEN LET xi=xi -í 
210 IF INKEY*»"o" THEN LET xi=xi-l 
2?0 - TF - INKEY*^ w p' - THEN LET - x i “xTT"! 

222 IF INKEY*="c" THEN INPUT "XI"5x,"Y:"5 y! LET yb=y¡ LET xb = x 
230 LET x-x+xi 
232 LET y=y+yi 

235 IF x>255-g THEN LET x=255-g 

236 IF x<0 THEN LET x»0 

237 IF y<O THEN LET y-0 
230 IF y > 175-g THEN LET y=175-g 

239 OVER TR 

240 FOR n-O TO g-1 STEP C 
250 PL9T xb+n,yb+n 
255 DRAW x-xb,y-yb 
260 NEXT n 
270 LET xb=x 
275 LET yb=y 
200 OVER O 

2°0 IF INKEY*-"r" THEN RUN 5 
300 GO TO 100 
9990 CLEAR 

9995 LOAD *"*>"1 1J "?«3‘SCREEN* 

9999 SAVE " INER DRAW "¿ODE 16384,PEEK 23627+256*PEEK 23628-16362: 


PATRULLERA 

ANGEL GARCIA & ELGA&Q 

RECOGE LOS PECES 
QUE SUBEN A LA SU¬ 
PERFICIE SIN QUE TE 
COJAN LAS PATRULLE¬ 
ROS MARROQUIES. 

O ¡# A : # 0:4= P:^ 



1 IF INKEYSO"* 

2 CLS 


THEN GO TO 9999 



















3 PRINT AT 10* 10} " PARA LA CINTA* 1 
3 LET A=USR 23464 
10 FOR A=0 TO 21*8 
20 POKE 65089+A ,PEEK (23296+A) 

30 NEXT A 

— 4o-Go s us —rooo -- 

50 LET X=6: LET Y=0 
52 LET XB=ó: LET YB=0 

60 LET Xl=12¡ LET X2=10¡ LET Yl=30: LET Y2=0 
70 LET P=0 

100 IF INKEY*=“Q" THEN LET X=X-1: IF X<6 THEN LET X=6 

110 IF INKEY*= 1 *A N THEN LET X=X+1I IF X>18 THEN LET X=18 

120 IF INKEY*="0" THEN LET Y=Y-1: IF Y<0 THEN LET Y=0 

130 IF INKEYS=”P’ THEN LEI T =Y+T: IF'~T>3"0 THEN™LET 'r=30 

tan TP BN1V>-7 THPN G Q S-IB 9000-- ----- 

200 PRINT AT XÍ,Yi;" LET Y1 = Y1--1: IF Y1<0 THEN LET Xi=6+RND*12; LET Vi=30 

205 IF SCREEN* (X1 , Y1 V > "b THEN LET X í =6+RND*l21 LET Y 1-30 
208 PRINT AT vi,Y1}"ef " 

210 PRINT AT X2 f Yz:" V L E” V 2=Y7^1: IF Y2>3C THEN LET X2=Ó+RND*12: LET Y2=0 
712 IF SC PEEN* 'X2,Y2+1> >"t>" THE!'! LET ”2=6+RND*12 : LET Y2=0 

215 P PT N T AT V2, Y2; "cd" ____ 

30 n ! E*r t*=SCRFEM* ' X . Y' 

310 !F r *> " b" 1 —rRETri 1 ^ 73K ”q" THEN OG TC~2UOÜ - 
315 IF T*~ "U” T HE?4 00 SUB 1500 
320 LET T*=SCPEEN* ÍX.-'+n 

230 IF T$>"b* ’ r HEH T p T*<"q" THEN GG TO 2000 
T32 IF T3>-" u " THEN GO SUB 1500 

500 PPINT AT XE, V B;" " ; AT X,Y;"ab": LET XB=X: LET YB-Y 

600 GO TO ----—- 

lOOO BORDE 0 5? PAPER 51 INK O: CLS ____ 

ICIO e PINT AT O, Oí '’PESCADO... O ? qr 

1070 PP I NT AT 4,0; H i hmhmhríihmh ihi hmh i hrnh i hmhmhmhmh i hkj k j kj kj kj k j k j k j kj k j k j k j k j k j k 
j k j * 

1 030 PRINT AT i O; * i hrohmhnfrrfih ihi hrnh i hmh i hmhmhmhmh i hk j k j k j kj kjkjkjkjkjkjkjkj kj k j 
kj HÍ* < # 
ttras—REtt 

1040 FOR A= 1 TO 5 _ _ _ _-_______ 

1042 LET X=é+RND*Íi: LET Y-2+F=ND#2ó 
\0*7 PRINT AJ X, v ; "hi " ; AT X + ^yj* jk H 
104*5 LET X=é*RND*l ! ; LET Y=2+RND*2Ó 
1045 PRINT X.X'j-nóVAT X+l,yrVjk* 

1050 NEXT A 

1060 e 0R A-1 TO ZQ: Q Q SU B 9000: NEXT A 
1?00 RETURtt 

p p t n t ~r^ p er gr~TNK -s tat i , 1 25 PT—bfer r e türn 

2000 PPINT AT vjg f Y£; 11 ” : POR b= 1 TO ó: FOR A=0 TO 5: PRINT INK AS AT Xj YI Jl ab 11 ; B 

EEP l 1 1 O,A-Bí NEXT A: NEXT B 
2010 BEEP .6,-10 

2020 CLS : PRINT AT 3,5;"TU BARCO HA SIDO HUNDIDO"SAI 5,7;VÍ!t ESTAS MUERTO f ! i " 
2030 PRINT AT PARTIDA ÍS/N) " 

2040 TP H 3’* TH EN RU N 4 0 ______ 


7050 TP TNKEYS- H M" THEN RA^iDONIZE USR O 


2040 

9000 

" u " 

GO T Ü 2040 

LET XP-6+RND*12; LET YP=RND*301 

IF SCREENS (XP f 

YP)=" " THEN PRINT AT XP,YP; 

9010 

RETURN 



9993 

9999 

CLEAR : LOAD *" 10 " 5 1 ? "4s ° SCREENS 
SAVE "PATRULLERA 11 CODE 16384, PEEK 

23Ó27+25Ó^PEEK 

23628-16382; GO TO 1 
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DISPONIBLE PARA ZX SPECTRUM 




Grüphis, S A Pubíícidatf 



















• CRUCERO ESPACIAL 

• PHANTOM FIRE 

• LA RANA 

• SLALOM 

•CAZA DE PERDICES 

• ELGORI 

• EXPEDICION A MI RANA 


• SUMARIO 
•TRANSPORTE 


• REACTOR DE URANIO 

• EN LA CARRETERA 

• NIOBIO 
•GALLINERO 

• PRUEBA TU FUERZA 
















